(*# call(o_a_copy => off) *)
(*%F _fcall *)
(*# call(seg_name => null) *)
(*%E *)
(*# module(implementation=>on) *)
(*# data(seg_name => null) *)
DEFINITION MODULE QCbplus;

                     (* This JPI Modula-2 module is part of *)

                      (* QC -- a communications program *)
                             (* by Carl Neiburger *)
                              (* 169 N. 25th St.*)
                          (* San Jose, Calif. 95116 *)

                         (* CompuServe No. 72336,2257 *)

(* These procedures were derived from B Plus Protocol Support routines
   written by Russ Ranshaw, of CompuServe, user number 70000,1010.
   I owe him extensive thanks for for helping me with them. *)

VAR
(*
  These Global Variables must be initialized by the calling
  program before any routines in this unit are invoked.
*)

  AbortMax   : CARDINAL;     (* Number OF Abort requests allowed before*)
                             (* performing a "fatal abort." *)
  AutoResume : BOOLEAN;      (* TRUE to automatically attempt transfer *)
                             (* resumption IF the Initiator can do it  *)

(* QuoteThis is invoked to set bits IN SpecialQuoteSet. *)
(* It sets SpecialQuoting TRUE to use the special quote set.    *)
(* IF Value = 0FFH, the Special Quote Set is restored to its default. *)
PROCEDURE QuoteThis (Value: SHORTCARD);

(* TermENQ is invoked when Terminal Mode receives <ENQ> from host *)
PROCEDURE TermENQ;

(* TermEscI is invoked when Terminal Mode receives <ESC><I> from host *)
PROCEDURE TermEscI (EscIResponse : ARRAY OF CHAR);

(* DleBseen is invoked when Terminal Mode receives <DLE> from host *)
PROCEDURE DleBSeen;

END QCbplus.
